home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-readerstuff-
/
richard_kapp
/
playgui
< prev
next >
Wrap
Text File
|
1999-11-30
|
4KB
|
197 lines
G4C;PlayGUI by Richard Kapp 1999 ; MUST BE IN THE FIRST(!) LINE
xROUTINE Hopp
Stop = na
WINBIG -1 -1 275 116 ""
wintype 00001000
image 0 0 skin
image 0 0 Display.iff
WINFONT XHelvetica.font 13 010
WINBACKGROUND image haut 0
xonload
LOADSOUND soundy tata
PLAYSOUND tata
Set help on
extract PlayGUI guipath PlayGUIpath
ifexists assign PlayGUI: ;try to self-locate
else
assign PlayGUI: $PlayGUIpath
endif
loadimage skin/skin haut Workbench
loadimage Display.iff Schirm Workbench
guiopen PlayGUI
image 15 22 Schirm
xonclose
freeimage haut
freeimage schirm
freesound tata
guiquit PlayGUI
CText 20 24 "- PLAYGUI - V.1.5" XHelvetica.font 11 2 -1 01032
CText 20 35 "made by Richard Kapp'99" XHelvetica.font 11 1 -1 00032
CText 20 45 "Select a sample or a mod." XHelvetica.font 11 1 -1 00032
;VOLUME-SLIDER
xHSlider 20 70 90 10 '' vol 0 64 64 ''
if $a = loaded
and $c = hippy
SendRexx HIPPOPLAYER VOLUME=$vol
else
gosub PlayGUI Hopp
endif
; BUTTON - DEFINITIONEN
xBUTTON 15 85 20 18 "!"
Gadhelp "Info about the Module"
if $a = loaded
and $c = hippy
SendRexx HIPPOPLAYER SAMPLES
else
gosub PlayGUI Hopp
endif
xBUTTON 99 85 20 18 ">"
Gadhelp "FORWARD"
if $a = loaded
and $c = hippy
SendRexx HIPPOPLAYER FFWD
else
gosub PlayGUI Hopp
endif
xBUTTON 78 85 20 18 "<"
Gadhelp "REWIND"
if $a = loaded
and $c = hippy
SendRexx HIPPOPLAYER REW
else
gosub PlayGUI Hopp
endif
xBUTTON 36 85 20 18 "»"
Gadhelp "Play selected module"
if $a = loaded
CLI 'C:run >NIL: C:hip hide $module'
VARPATH "PlayGUI/*"
say $module
say "***"
c = hippy
stop = na
else
Gosub PlayGUI Hopp
endif
xBUTTON 148 42 39 20 "Play"
Gadhelp "Play selected sample"
if $b = loaded
CLI 'C:run >NIL: C:Play16 $sample'
d = play16
else
Gosub PlayGUI Hopp
endif
xBUTTON 57 85 20 18 "-"
Gadhelp "Stop playing the module"
if $a = loaded
and $stop = na
CLI 'C:run >NIL: C:hip quit'
stop = ja
c = hippyend
elseif $a = loaded
and $stop = ja
gosub PlayGUI Hopp
endif
xBUTTON 187 42 40 20 "Stop"
Gadhelp "Stop playing the sample"
if $b = loaded
BreakTask C:Play16 C
d = play16end
endif
xBUTTON 227 42 39 20 "^"
Gadhelp "Select a sample"
ReqFile 0 0 200 400 "Choose a sample..." LOAD sample ram:
b = loaded
xBUTTON 129 85 20 18 "^"
Gadhelp "Select a module"
ReqFile 0 0 200 400 "Choose a module..." LOAD module ram:
a = loaded
xBUTTON 160 85 50 18 "Launch"
Gadhelp "Launch your favourite Music-tool!"
ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool ram:
CLI 'C:RUN >NIL: $tool'
xBUTTON 210 85 35 18 "Quit"
Gadhelp "Quit PlayGUI"
EZReq "Really quit PlayGUI?" "Quit|Cancel" myvar
if $myvar = 1
and $c = hippy
CLI 'C:run >NIL: C:hip quit'
LOADSOUND soundend schluß
PLAYSOUND schluß
freeimage haut
freeimage schirm
freesound tata
freesound schluß
guiquit PlayGUI
elseif $myvar = 1
and $d = play16
BreakTask C:Play16 C
LOADSOUND soundend schluß
PLAYSOUND schluß
freeimage haut
freeimage schirm
freesound tata
freesound schluß
guiquit PlayGUI
elseif $myvar = 1
LOADSOUND soundend schluß
PLAYSOUND schluß
freeimage haut
freeimage schirm
freesound tata
freesound schluß
guiquit PlayGUI
elseif $myvar = 1
and $c = Hipppyend
LOADSOUND soundend schluß
PLAYSOUND schluß
freeimage haut
freeimage schirm
freesound tata
freesound schluß
guiquit PlayGUI
elseif $myvar = 1
and $d = play16end
LOADSOUND soundend schluß
PLAYSOUND schluß
freeimage haut
freeimage schirm
freesound tata
freesound schluß
guiquit PlayGUI
else
Gosub PlayGUI Hopp
endif
xBUTTON 148 22 119 20 "Commentary"
gadhelp "Write commentary about the current module or sample and save it"
GuiLoad PlayInfo
RESIZE_BIG 214 202 275 116 PLAYGUI
RESIZE_SMALL 214 202 275 116 PLAYGUI